UNIVERSITY OF ILLINOIS 

DIGITAL COMPUTER 

STATISTICAL LIBRARY 



TITLE: 
TYPE: 
SYMBOLS : 



RESTRICTIONS 
DURATION: 



DESCRIPTION: 



METHOD OF USE: 



KSL 5.55 - 325 

Triangular matrix to square (or rectangular) SADOI Only 

Entire program 

d: decimal places per number on data tape 

n: order of matrix 

X: number of selected rows (or columns) 

s . : selected row or column numbers 

< d < 8; l<n< 111; < X; 1 < s . < n 

A. Square matrix 

n (.020 d / .037) seconds 

B. Retangular matrix 

n 2 (.0025 cL / .0035) / nX(.Ol67 d / .0332) seconds 
Symmetric matrices often are punched in triangular form. 
For example, the order of output for K17 may be punched 
as. follows: 

.. r 



r ll r 21 r 22 r 31 r 32 r 33 •" r nl P n2 



nn 



For some subsequent computer operation, however, a square 
matrix may be required. The purpose of this routine is 
merely to read a symmetric matrix in triangular form and 
to punch out the complete square matrix with N terminating 
symbols at the end of each row (or column) and a J at 
the end of the matrix. 

An alternate use of this routine is to punch out only 
selected rows (or columns) of the full square matrix) 

STOPS 

1. Master tape KSL 5". 55 3^ 09N 

2. Parameter tape 2h ONF 

3. Data tape 2k 09N 

At stop ISh 09N a new problem can be begun by raising the 
black switch to read a new parameter tape. 
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PARAMETER TAPE: 



DATA TAPE: 



A. Square matrix 

Punch three unsigned integers separated by fifth-hole 
characters in the following order: 

d space n space space 

B. Rectangular matrix (selected rows) 

Punch unsigned integers separated by fifth-hole characters 
as follows: 

d space n space X space s space s space ... s space 

-L cL X 

The parameter X is interpreted by the maehine to be the 
number of selected rows „ When X = 0, of course no rows 
are selected} a square matrix is punched. Otherwise, 
when X > 0, then X additional integers are read into the 
machine. These are the selected row numbers. Since the 
row numbers may be punched in any order, it is possible 
to rearrange the rows of a symmetric matrix in any order 
whatsoever. 
The computer will detect three parameter tape errors: 

1. If d > 8, the computer will print "D GREATER THAN 8" 
and stop on FF 123. 

2. If any s . = 0, the computer will print "ROW NUMBER = 0" 
and stop on FF 123 . 

3. If any s. > n, the computer will print "ROW NUMBER 
GREATER THAN ORDER" and stop on FF 123. 

By moving the white switch up and down at stop FF 123? 
a corrected parameter tape may be read and the problem 
continued. 

The data tape consists of the n(n / l)/2 number of a 
symmetric matrix punched in the following order: 

r 



r r r 
11 21 22 



r nl r hg 



nn 



Each number is punched as a sign followed by d digits. 
(See Note 2) 
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NOTE 1: 



NOTE 2: 



A stop on FF 000 indicates a stun check failure in reading 
the master tape. Try rereading the master tape. 
This routine does not check for signs. Instead the numbers 
are read with the order, 8l k(& / l). Thus, the routine 
will work equally well for unsigned numbers provided the 
parameter d is reduced by one. For example, to read a 
triangular matrix consisting of single unsigned digits, 
set d 5= 0. 



DATE 



June 13, 1961 



PROGRAMED BY ^^^^gA**^UUAj 
APPROVED BY ^^^U^A^a^Z) 



n<} 



■■•■- LOCATION 


ORDER 


NOTES PAGE 1 KSL 5. 55*. 


Abs. 


Rel. 


Sym. — 


003K 










5 




(o) 

(01) 

(1) 

(9) 
(10) 

(to) 


OOF'OOF 
OIF OOF 
OOF OOIF 
OOF 009F 
OOF OOIOF 
OOF 0040F 








(65) 


OOF OO65F 


Teletype character per line 






(67) 


OOF OO67F 








(+) 


OOF OOF 








(-) 


OOF OOF 








(I) 


OOF OOF 


row 






(J) 


OOF OOF 


Column 






(sj 


00500F 00500F 


Store selected s . 
1. 






(A) 


00625F 00625F 


addresses of vector 






(V) 


00750F 00750F 


store vector 






(c) 


00875F OO875F 


store diagonals 






(Dl) 


851IF 002495F 


drum order r 85IIF OO256OF - 65 






(D2) 


8510F 112367F 


drum order: 85HF OO256OF -4289 






(P) 


80F OOF 


No. elements per line 






(L) 


OOF OOF 








(N-l) 


OOF-0OF 








CD) 
(H) 
(X) 


OOF OOF 
OOF OOF 
OOF OOF 

00K(2.l) 


I (d): decimal places 
parameters J (N)j order of matrix 
1 (x): directive 


27 






K^F H-22QL 
L5(A) 4211L 
^221L L5(V) 
422^L 4l(l) 
50(0) L5(J) 

006F ko(+) 

L5(I) L0(J) 

^o(-) 32171 


Subroutine to remove a row from the 
drum^ given i at (i) 

from 5(1-7); 1(1.8) 


— 




__ 


L5(J) LO(67) 





LOCATION 


ORDER 


NOTES PAGE 2 KSL 5 


• 55 


Abs* 


1 
Rel. 


Sym* 


32I5L L5(+) 






99 












iA(Dl) lA(j) 












IA(I) ^OF 












F511L M-211L 












F5(I) te(l) 












LO(N) 3221L 












266L L5(+) 












OOIF lA(D2) 












2210L Ll(-) 












363OL L5(I) 












oo6f 4o(+) 








20 




L5(l) 228L 








21 




OOF L5F 
4023L 3232L 








23 




OOF OOF 








2k 




322^L ^OF 
F52^L k22kh 
F521L ^221L 
L029L 3221L 
OOIF 22F 








29 




80F L5F 
L5(C) IA(J) 
4232L lUF 
2211L L5F 
222^L OOF 

00K(2«2) 


by 10(1.2) 




61 






K5F 4210L 
L5(V) te2L 
^l(L) L5F 
82F F52L 
422L LOllL 
369L F5(L) 
^2(L) LO(P) 
322L 92131F 
92519F 262L 


Subroutine to print vector 
from 6(1.7)1 2(1.8) 

by 6(2.2) 





LOCATION 


ORDER 


NOTES PAGE 3 KSL 5«55 


Abs* 


Rel* 


Sym. 


92770F 9-2135F 

92519F 22F 
' 41 (L) L5F 


by 14(1.2) 














00K(2,3) 




73 






425L 914F 
362L 22L 
50F 74(10) 
S5F 40F 
914f 362L 
L5F 22F 

00K(2.4) 


Subroutine to read parameters 
-from 1(1.1)5 1(1*2); 3(1.3.)$ 1(1-5) 


79 


20 




K5F 4226L 
L5(V) 424L 
L4(l) 4217L 
41 (J) 8lF 
OOF -40F 
F54L 424L 
F5(J) 42(J) 
L027L 323L 
L5F 40F 
F58L 428L 
F527L 422 7L 
F528L 4228L 
F5(I) 42(1) 

LO(67) 3629L 
50(1) oo6f 
L5(di) -4f 
l4(i) l4(oi) 

4018L L5F 
OOF OOF 
F518L 4018L 
F517L 4217L 
L028L 3217L 
L5(l) LO(N-l) 
3224L 26lL 


Subroutine to read triangular matrix 
and store on drum 
from 1(1.6) 

by 5(1-2) 
by 8(1.2) 

by 8(1,2); 15(1.2) 




24 




OOF 8lF 


by 5(1.2) 



LOCATION 



Abs. 



10^ 



110 



121 



127 



Rel. 



25 

27 
28 



Sym. 



ORDER 



NOTES 



PAGE k 



KSL 5«55 



OOF 40F 
001F 22F 
80F 002F 
N018L L5F 
50 (I ) 007F 
L5(B2) 2215L: 

OOK(ER) 
4210L 92135F 
922 59F 922F 
92387F 92258F 
92387F 926if3F 
9219^F 92322F 
9219^F 922 58F 
9296IF 9219^F 
92262F 92578F 
92258F 92707F 
92835F 92965F 

92259F 22F 

ook(rn) 

425L 92258F 
92578F 92130F 
92961F 92770F 
92^50F 92643F 
92195F 9219^F 
92258F 22F 

OOK(GR) 
k26L 92579F 
92258F 9219^F 
92387F 92322F 
9219^F 92258F 
92961F 92322F 
92771F 92387F 
92770F 22F 



by 9(L2)| 16(1.2) 

by 11(1.2) 

by 12(1,2); 17(l-2) 



from l(ERl); l(ER2)j l(ER3) 



Print: PARAMETER ERROR: 



from 2(ER2); 2(ER3) 



Print: ROW NUMBER 



from 3(ERl); ^(ER3) 



Print: GREATER THAN 



LOCATION 



-A15S. 



134 



Rel, 



Sym, 



1^1 



l47 



1J6 



ORDER 



OOK(ERl) 
9259F F5L 

26 (er) 9267F 

92961F F52L 

26 (gr) 92961F 

92707F 9251^F 
92135F FF291F 
26(1.1) OOF 

00K(ER2) 
9259F ¥% 
26 (ER) F51L 

26 (rn) 92707F 

92961F 92579F 
92961F 922F 
265 (ERl) OOF 

OOK(ER3) 
9259F F5L 
26 (ER) F51L 

26 (rn) 92961F 

OOIF F53L 

26 (gr) 92961F 

92578F 92258F 
9267F 9219^F 
92258F 92707F 
265 (ERl) OOF 

OOK(lol) 
4lF F5L 
26(2.3) 40(d) 
LO(9) 36 (ERl) 
4lF 42 (P) 
F5(D) 401F 
L5(65) 402F 
L52F L01F 
368L 26(1.2) 



NOTES 



PAGE 5 KSL 5-55 



from 2(1.1); d > 8 



Error stop; FE125 



from 4 (1.4); s i = 



from 5(1.4); s. > n 



Begins read d 



LOCATION 


ORDER 


NOTES PAGE 6 KSL 5*55 


Abs. 


Rel. 


Sjm. 


402F F5(P) 


Tally elements per line at (P) 


164 












42 (P) 266L 










00K(1.2) 




166 






4lF F5L 

26(2*5) ^o(n) 

LO(l) 40(N-l) 
50(0)IF5(D) 
002F 402F 
425(2.4) 4224(2.4) 
0020F 465(2.2) 
L5(40) L02F 
0020F 464(2.4) 
4625(2.4) L5(A) 
L4(N) 4229(2.1) 
F5(l) 4227(2.4) 
L5(V) 4228(2.4) 
468(2.4) L4(N) 
4211(2.2) L5(C) 
428(2.4) L4(N-l) 
4225(2.4) F528(2,4) 
4228(2.4) 26(1.5) 

00K(l.5) 


read n 


184 






L5(S) 42 5L 
L4(X) 427L 
4lF F52L 
26(2.5) 40F 
F55L 42 5L 
L07L 562L 
26(1.4) OOF 
K6(2.5) 40F 

OOK(l.4) 


from 2(1.5) 

read s. 
1 


192 






L5(S) 422L 
42 5L L4(X) 


test all s . for size 




\ 




429L L5F 


, , ., ... 1. 



LOCATION 


ORDER 


NOTES PAGE 7 KSL 5 


• 55 


Abs. 


Rel. 


Sym. 


LO(l) 40F 






195 












365L 26(ER2) 












LO(N) 36(ER5) 












F55L 425L 












422L L09L 












522L 265(1.5) 












70(1) 40F 












00K(1.5) 






202 






4lF F5L 
26(2.5) 40(X) 
LO(l) 56(1.5) 
41(1) 24(1.6) 

00K(1.6) 


from 17(1.2) 
read X 

Stop: 240NF 




206 






4l(l) 50L 
26(2.4) 9259F 
9259F 92155F 
92707F 26(1.7) 

00K(1.7) 


Read triangular matrix 




210 




— 


L5(X) 56(1.8) 
L5(S) 42 5L 
L4(X) 429L 
50(0) L5F 
40 (J ) 504L 
26(2.1) 50^L 
26(2.2) F55L 
42 5L 3X»9L 
52 5L 265(1.8) 
J0(0) L5F 

00K(1.8) 


Test X f 

Punch selected rows 




220 






4l(j) 50L 
26(2.1) 501L 
26(2.2) F5(J) 
42 (J) LO(N) 
565L 22L 


Punch complete matrix 





LOCATION 



ORDER 



NOTES 



PAGE 8 



KSL 5.55 



Abs. 



225 



227 



Rel. 



Sym. 



9283^F 92555F 
92135F 2^(1.1) 

OOK 

L3F 3^(1-1) 

FFF 26(l.l) 

-90059F i F21T58F 

26L 261N 



Final stop: 2^09N 



Sum check 



